-- stack: in
-- format: 10 (HyperCard 2)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 1
-- first background id: 2706
-- card count: 4
-- first card id: 5022
-- list block id: 2980
-- print block id: 0
-- font table block id: 5460
-- style table block id: 5195
-- free block count: 5
-- free size: 7712 bytes
-- total size: 16384 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x02108000
-- modified by hypercard version: 0x02108000
-- opened by hypercard version: 0x02108000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x65184E2A
----- HyperTalk script -----
on openStack
  set lockScreen to true
  set lockMessages to true
  set cursor to 4
  domenu New Card
  global nbr
  global var
  put 0 into itm
  put 0 into hundrh
  put 0 into ninh
  put 0 into eigh
  put 0 into sevh
  put 0 into sixh
  put 0 into fifh
  put 0 into forh
  put 0 into thirdh
  put 0 into twenh
  put 0 into tenh
  put 0 into zeroh
  repeat with counter = 1 to var
    add 1 to itm
    put word itm of nbr into test
    if value of test > 99 and value of test < 120 then add 1 to hundrh
    if value of test > 89 and value of test < 100 then add 1 to ninh
    if value of test > 79 and value of test < 90 then add 1 to eigh
    if value of test > 69 and value of test < 80 then add 1 to sevh
    if value of test > 59 and value of test < 70 then add 1 to sixh
    if value of test > 49 and value of test < 60 then add 1 to fifh
    if value of test > 39 and value of test < 50 then add 1 to forh
    if value of test > 29 and value of test < 40 then add 1 to thirdh
    if value of test > 19 and value of test < 30 then add 1 to twenh
    if value of test > 9 and value of test < 20 then add 1 to tenh
    if value of test >= 0 and value of test < 10 then add 1 to zeroh
  end repeat
  set lockScreen to false
  set lockMessages to false
  choose line tool
  set linesize to 4
  if value of hundrh > 0 then drag from 90,40 to (90 + (value of hundrh * 10)),40
  if value of ninh > 0 then drag from 90,65 to (90 + (value of ninh * 10)),65
  if value of eigh > 0 then drag from 90,90 to (90 + (value of eigh * 10)),90
  if value of sevh > 0 then drag from 90,115 to (90 + (value of sevh * 10)),115
  if value of sixh > 0 then drag from 90,140 to (90 + (value of sixh * 10)),140
  if value of fifh > 0 then drag from 90,165 to (90 + (value of fifh * 10)),165
  if value of forh > 0 then drag from 90,190 to (90 + (value of forh * 10)),190
  if value of thirdh > 0 then drag from 90,215 to (90 + (value of thirdh * 10)),215
  if value of twenh > 0 then drag from 90,240 to (90 + (value of twenh * 10)),240
  if value of tenh > 0 then drag from 90,265 to (90 + (value of tenh * 10)),265
  if value of zeroh > 0 then drag from 90,290 to (90 + (value of zeroh * 10)),290
  choose browse tool
end openStack